char_fixed Function

private pure function char_fixed(string, length) result(char_string)

Convert a varying string into a character string (fixed length)

Arguments

Type IntentOptional Attributes Name
type(varying_string), intent(in) :: string
integer, intent(in) :: length

Return Value character(len=length)


Source Code

  pure function char_fixed (string, length) result (char_string)

    type(varying_string), intent(in) :: string
    integer, intent(in)              :: length
    character(LEN=length)            :: char_string



    char_string = char(string)

! Finish

    return

  end function char_fixed